home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / mac / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / DirectPlay / Conferencer / frmProgress.frm < prev    next >
Text File  |  2001-10-08  |  2KB  |  79 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Begin VB.Form frmProgress 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "File Copy Progress"
  6.    ClientHeight    =   1350
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3870
  10.    Icon            =   "frmProgress.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1350
  15.    ScaleWidth      =   3870
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin MSComctlLib.ProgressBar bar 
  18.       Height          =   375
  19.       Left            =   60
  20.       TabIndex        =   0
  21.       Top             =   900
  22.       Width           =   3675
  23.       _ExtentX        =   6482
  24.       _ExtentY        =   661
  25.       _Version        =   393216
  26.       Appearance      =   1
  27.       Scrolling       =   1
  28.    End
  29.    Begin VB.Label lblFile 
  30.       BackStyle       =   0  'Transparent
  31.       Height          =   735
  32.       Left            =   60
  33.       TabIndex        =   1
  34.       Top             =   60
  35.       Width           =   3675
  36.    End
  37. End
  38. Attribute VB_Name = "frmProgress"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  44. '
  45. '  Copyright (C) 1999-2001 Microsoft Corporation.  All Rights Reserved.
  46. '
  47. '  File:       frmProgress.frm
  48. '
  49. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  50. Option Explicit
  51.  
  52. 'This form will act both as the UI for the progress of file transfers as well
  53. 'as holding the information for the transfer
  54.  
  55. Public sFileName As String
  56. Public lFileSize As Long
  57. Public lDPlayID As Long
  58. Public FileUniqueID As Long
  59. Public lCurrentPos As Long
  60. Public filNumber As Long
  61. Public RequestForm As frmTransferRequest
  62.  
  63. Public Sub SetFile(ByVal sFile As String, Optional ByVal fReceive As Boolean = False)
  64.     If fReceive Then
  65.         lblFile.Caption = "Receiving: " & sFile
  66.     Else
  67.         lblFile.Caption = "Transfering: " & sFile
  68.     End If
  69. End Sub
  70.  
  71. Public Sub SetMax(ByVal lMax As Long)
  72.     bar.Max = lMax
  73. End Sub
  74.  
  75. Public Sub SetValue(ByVal lValue As Long)
  76.     bar.Value = lValue
  77. End Sub
  78.  
  79.